home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / TOT / DEMO.EXE / arc / DEMLK1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  1KB  |  41 lines
  1. Program DemoLinkOne;
  2. {DEMLK1 - creating a linked list}
  3.  
  4. Uses CRT,
  5.      totLink;
  6.  
  7. var
  8.   GirlFriends: StrDLLOBJ;
  9.   Retcode: integer;
  10.   I: integer;
  11.  
  12. begin
  13.    ClrScr;
  14.    with GirlFriends do
  15.    begin
  16.          Init;
  17.          Retcode := Add('Erica');
  18.          if Retcode <> 0 then exit;
  19.          Retcode := Add('Theresa');
  20.          if Retcode <> 0 then exit;
  21.          Retcode := Add('Lynn');
  22.          if Retcode <> 0 then exit;
  23.          Retcode := Add('Donna');
  24.          if Retcode <> 0 then exit;
  25.          Retcode := Add('Godzilla');
  26.          if Retcode <> 0 then exit;
  27.        writeln('Total nodes: ',TotalNodes);
  28.        writeln('Active node number: ',ActiveNodeNumber);
  29.        for I := 1 to TotalNodes do
  30.            writeln(GetStr(NodePtr(I),0,0));
  31.        writeln;
  32.        RetCode := InsertBefore(NodePtr(4),'Joyce');
  33.        writeln('Total nodes: ',TotalNodes);
  34.        writeln('Active node number: ',ActiveNodeNumber);
  35.        SwapNodes(NodePtr(5),NodePtr(2));
  36.        Retcode := Change(StartNodePtr,'Ekka');
  37.        for I := 1 to TotalNodes do
  38.            writeln(GetStr(NodePtr(I),0,0));
  39.      end;
  40. end.
  41.